home *** CD-ROM | disk | FTP | other *** search
- 100 poke53280,2:poke53281,2:poke646,7
- 110 poke808,225
- 120 gosub4500
- 130 gosub3500
- 140 gosub2000
- 150 x=20:y=2:gosub1000
- 160 printdn$
- 170 t=18:s=1
- 180 open1,8,15,"i0"
- 190 open2,8,2,"#"
- 200 print#1,"u1 2 0";t;s
- 210 get#2,t$,s$
- 220 forp=2to226step32
- 230 print#1,"b-p 2";p
- 240 get#2,f$:iff$=""thenf$=chr$(0)
- 250 f=asc(f$):f=fand15
- 260 iff<>2then840
- 270 o=p+3:print#1,"b-p 2";o:na$=""
- 280 fori=1to16:get#2,a$:na$=na$+a$:next
- 290 ifh=88then310
- 300 gosub1500
- 310 x=20:y=6:gosub1000
- 320 printna$
- 330 ifh=88then360
- 340 e$="ueberspringen: j [146] => ja n [146] => nein"
- 350 gosub2500
- 360 get w$:ifw$=""then360
- 370 ifw$="n"then410
- 380 ifw$="j"thenh=88:goto840
- 390 ifw$=chr$(133)thent$="":goto850
- 400 goto360
- 410 e$="eingabe: 1 [146] => ,8,1 2 [146] => ,8:":h=0
- 420 gosub2500
- 430 getw$:ifw$=""then430
- 440 ifw$="1"thenc$=",8,1":q=11:goto490
- 450 ifw$="2"thenc$=",8:":q=12:goto490
- 460 ifw$=chr$(134)thenc$="":q=16:goto490
- 470 ifw$=chr$(133)thent$="":goto850
- 480 goto430
- 490 gosub3000
- 500 ln=len(na$)
- 510 ifln<qthenna$=na$+chr$(32):goto500
- 520 na$=left$(na$,q)
- 530 ifq=11thene$="eingabe max. 11 zeichen":gosub2500
- 540 ifq=12thene$="eingabe max. 12 zeichen": gosub2500
- 550 ifq=16thene$="eingabe max. 16 zeichen":gosub2500
- 560 ne$="":x=20:y=10:gosub1000
- 570 if q=16 thenna$=left$(na$,11)
- 580 print">";na$;
- 590 v$="":poke646,0:poke207,0:poke204,0
- 600 x=21:gosub1000
- 610 poke55757,2
- 620 getz$:ifz$=""then620
- 630 poke204,1
- 640 ifz$=chr$(20)then620
- 650 ifz$=chr$(13)then700
- 660 v$=v$+z$
- 670 printv$
- 680 iflen(v$)>(q-1)then700
- 690 goto600
- 700 poke646,7:i=len(v$)
- 710 ifi=0thenne$=na$:goto760
- 720 ifq=12theng=12:goto740
- 730 g=11:ifi>gtheni=g
- 740 na$=right$(na$,(g-i))
- 750 ne$=v$+na$
- 760 gosub3000
- 770 ln=len(ne$)
- 780 ifln<>q+1thenne$=ne$+chr$(160):goto770
- 790 ne$=ne$+c$
- 800 x=20:y=14:gosub1000
- 810 printne$
- 820 print#1,"b-p 2";o
- 830 print#2,ne$
- 840 next
- 850 print#1,"u2 2 0";t;s
- 860 close2:close1
- 870 t=asc(t$+chr$(0)):s=asc(s$+chr$(0))
- 880 ift=0then4000
- 890 goto180
- 999 rem *** cursorpositionierung ***
- 1000 poke211,x:poke214,y:sys58732
- 1010 return
- 1499 rem *** eintraege loeschen ***
- 1500 fork=1to500:next
- 1510 x=20:y=10:gosub1000
- 1520 print" "
- 1530 y=14:gosub1000
- 1540 print" "
- 1550 return
- 1999 rem *** diskname + id einlesen ***
- 2000 open1,8,15,"i":open2,8,2,"#"
- 2010 print#1,"u1 2 0 18 0"
- 2020 print#1,"b-p 2 144"
- 2030 dn$=""
- 2040 fori=1to16:get#2,a$:dn$=dn$+a$:nexti
- 2050 print#1,"b-p 2 162"
- 2060 get#2,a$,b$:dn$=dn$+" "+a$+b$
- 2070 close2:close1
- 2080 return
- 2499 rem *** erklaerung blinken ***
- 2500 fori=0to3
- 2510 x=1:y=18:gosub1000
- 2520 print" "
- 2530 fork=1to100:nextk
- 2540 gosub1000
- 2550 printe$
- 2560 fork=1to100:nextk
- 2570 nexti
- 2580 return
- 2999 rem *** erklaerung loeschen ***
- 3000 e$=""
- 3010 x=1:y=18:gosub1000
- 3020 print" "
- 3030 return
- 3499 rem *** maske ***
- 3500 printchr$(147)
- 3510 fori=1to4
- 3520 print"[213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]"
- 3530 print"[221]"spc(17)"[221]"
- 3540 print"[202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]"
- 3550 print
- 3560 nexti
- 3570 x=1:y=2:gosub1000
- 3580 print"diskettenname+id:"
- 3590 y=6:gosub1000
- 3600 print"alter filename:"
- 3610 y=10:gosub1000
- 3620 print"neuer filename:"
- 3630 y=14:gosub1000
- 3640 print "fileeintrag neu[146]:":print:print
- 3650 print"[213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]"
- 3660 print"[221]"spc(37)"[221]"
- 3670 print"[202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]"
- 3680 print
- 3690 print"[213][192][192][192][192][192][192][192][192][192][192][192][192][178][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]"
- 3700 print"[221] f1 => ende [221] f3 => anhang wegnehmen [221]"
- 3710 print"[202][192][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]"
- 3720 return
- 3999 rem *** ende? ***
- 4000 printchr$(147)
- 4010 x=0:y=6:gosub1000
- 4020 print" [213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]"
- 4030 print" [221]"spc(22)"[221]"
- 4040 print" [221] wollen sie noch eine [221]"
- 4050 print" [221]"spc(22)"[221]"
- 4060 print" [221] diskette bearbeiten? [221]"
- 4070 print" [221]"spc(22)"[221]"
- 4080 print" [221] j [146] => ja [221]"
- 4090 print" [221]"spc(22)"[221]"
- 4100 print" [221] n [146] => nein [221]"
- 4110 print" [221]"spc(22)"[221]"
- 4120 print" [202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]
- 4130 [161]w$:[139]w$[178]""[167]4130
- 4140 [139]w$[178]"j"[167]h[178]0:[137]130
- 4150 [139]w$[178]"n"[167][158]64738
- 4160 [137]4130
- 4499 [143] *** bedienungsanleitung ***
- 4500 [153][199](147);
- 4510 [153]" (NULL)tantantantantantantantantantantantantantantantantantanright$"
- 4520 [153]" (NULL) filenamen anhang (NULL)"
- 4530 [153]" mid$tantantantantantantantantantantantantantantantantantan(NULL)"
- 4540 [153]" von t.herter c1986 "
- 4550 [153]" (NULL)tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantanright$"
- 4560 [153]" (NULL)"[166]36)"(NULL)"
- 4570 [153]" (NULL) dieses kleine programm ermoeglicht (NULL)"
- 4580 [153]" (NULL)"[166]36)"(NULL)"
- 4590 [153]" (NULL) es, die filenamen einer diskette (NULL)"
- 4600 [153]" (NULL)"[166]36)"(NULL)"
- 4610 [153]" (NULL) mit einem anhang zu versehen, (NULL)"
- 4620 [153]" (NULL)"[166]36)"(NULL)"
- 4630 [153]" (NULL) entweder mit ,8,1 oder mit ,8: (NULL)"
- 4640 [153]" (NULL)"[166]36)"(NULL)"
- 4650 [153]" (NULL) weiterhin laesst sich der filename (NULL)"
- 4660 [153]" (NULL)"[166]36)"(NULL)"
- 4670 [153]"close(NULL) durch ueberschreiben veraendern. (NULL)"
- 4680 [153]" (NULL)"[166]36)"(NULL)"
- 4690 [153]"close(NULL) bitte legen sie die zu bearbei- (NULL)"
- 4700 [153]" (NULL)"[166]36)"(NULL)"
- 4710 [153]" (NULL) tende diskette ein und druecken (NULL)"
- 4720 [153]" (NULL)"[166]36)"(NULL)"
- 4730 [153]" (NULL) sie eine tastewait. (NULL)"
- 4740 [153]" (NULL)"[166]36)"(NULL)"
- 4750 [153]"closemid$tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan(NULL)on"
- 4760 [146]198,1
- 4770 [142]
-